home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1997 November & December / Amiga-CD 1997 #11-12.iso / pd-disketten / ungepackt / 9_95 / apd-9-95-2 / tips&tricks / edward.rexx next >
OS/2 REXX Batch file  |  1996-01-25  |  541b  |  32 lines
  1. /* ARexx-Skript für Edward / C++ */
  2. /* lädt das nächste Include-File in ein neues Fenster */
  3.  
  4. OPTIONS RESULTS
  5.  
  6. line = "#include <stdlib.h>"
  7. fp = 9
  8. lp = 19
  9. path = "INCLUDE:stdlib.h"
  10.  
  11. ADDRESS "EDWARD"
  12. 'MoveLeft -1'
  13. 'MoveLeft 1'
  14. 'Find "#include"'
  15. 'GetLineString'
  16.  
  17. line = RESULT
  18. ADDRESS
  19. fp = INDEX(line,'<')
  20. if fp = 0 then do
  21.    fp = INDEX(line,'"',2)
  22.    lp = INDEX(line,'"',fp+1)
  23.    path = SUBSTR(line,fp+1,lp-fp-1)
  24.    end
  25. else do
  26.    lp = LASTPOS('>',line)
  27.    path = "INCLUDE:"SUBSTR(line,fp+1,lp-fp-1)
  28.    end
  29. ADDRESS
  30. 'NewText'
  31. 'Open "'path'"'
  32.